home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
rfix0312.zip
/
RSB40312.MRG
< prev
next >
Wrap
Text File
|
1993-03-12
|
4KB
|
86 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against C:\174\RBBSSUB4.BAS to produce D:\SOURCE\RBBSSUB4.BAS
* C:\174\RBBSSUB4.BAS: Date 6-20-1992 Size 120885 bytes
* ------------[ Created 03-12-1993 21:25:40 ]------------
* REPLACING old line(s) by new
59510 ZFileName$ = CurMenu$
InMenu = ZTrue
CALL BreakFileName (FrontOpt$,WasX$,FrontPre$,ZWasDF$,ZTrue)
CALL BreakFileName (CurMenu$,MenuDrv$,WasX$,ZWasDF$,ZTrue)
MenuFront$ = MenuDrv$ + LEFT$(WasX$,LEN(WasX$)-LEN(PreSuf$))
IF CurMenu$ = LastSubMenu$ THEN _
MenuFront$ = LEFT$(MenuFront$,LEN(MenuFront$)-1)
CALL Graphic (ZFileName$)
CurMenuVer$ = ZFileName$
ZStopInterrupts = ZFalse
* ------[ first line different ]------
* INSERTING new line(s)
59514 IF ZAnsIndex < ZLastIndex OR ZExpertUser THEN _ ' KG011501
GOTO 59520
* REPLACING old line(s) by new
59532 GOSUB 59547
* ------[ first line different ]------
GOTO 59514 ' KG011501
* REPLACING old line(s) by new
59856 ZActiveUserFile$ = WasA1$
CALL OpenUser (ZHighestUserRecord)
FIELD 5, 128 AS ZUserRecord$
IF (NOT ZRet) AND NOT AnyMail THEN _
CALL QuickTPut1 ("You have not joined any conferences")
ZUserFileIndex = UserFileIndexSave
LSET ZUserRecord$ = UserRecordHold$
ZActiveMessageFile$ = MsgFileSave$
CALL OpenMsg
FIELD 1, 128 AS ZMsgRec$
GET 1,1
ZNonStop = (ZPageLength < 1)
WasX$ = ZUserIn$(ZAnsIndex+1)
CALL AllCaps (WasX$)
ZAnsIndex = ZAnsIndex - (WasX$ = "C")
SkipParms = -(NOT EOF(2))*SkipParms
LinkNew = ZFalse
LinkPers = ZFalse
* ------[ first line different ]------
CLOSE 2 ' KG012501
END SUB
* REPLACING old line(s) by new
62624 ' $SUBTITLE: 'PrivDoorRtn - subroutine to exit as a private door.'
' $PAGE
'
' NAME -- PrivDoorRtn
'
' INPUTS -- PARAMETER MEANING
' ZTransferFunction = 1 DOWNLOAD FILE TO USER
' = 2 UPLOAD FILE TO RBBS-PC
' = 3 USER REGISTRATION PGM
' ZUserIn$ NAME OF FILE TO EXIT TO
' ZComPort$ NAME OF COMMUNICATIONS PORT
' TO BE USED BY KERMIT (COM1
' OR COM2)
' ZBPS = -1 FOR 300 BAUD
' = -2 FOR 450 BAUD
' = -3 FOR 1200 BAUD
' = -4 FOR 2400 BAUD
' = -5 FOR 4800 BAUD
' = -6 FOR 9600 BAUD
' = -7 FOR 19200 BAUD
'
' OUTPUTS -- NONE
'
' PURPOSE -- To transfer control to another program
'
SUB PrivDoorRtn STATIC
IF ZPrivateDoor THEN _
GOTO 62630
IF ZFakeXRpt THEN _
CALL FakeXRpt (ZWasFT$)
IF ZAdvanceProtoWrite THEN _
CALL OpenOutW ("XFER-"+ZNodeID$+".DEF") : _
IF ZErrCode < 1 THEN _
CALL PrintWorkA (ZFileName$+",,"+ZWasFT$) : _
CLOSE 2
* ------[ first line different ]------
IF (ZTransferFunction = 1 AND LEFT$(ZProtoMethod$,1) = "S") OR _ ' KG020501
(ZTransferFunction = 2 AND RIGHT$(ZProtoMethod$,1) = "S") THEN _ ' KG020501
GOTO 62629